library(tidyverse)
load("prm.RDS")
prm %>% group_by(year) %>% 
  ggplot(., aes(x=month, y=csm, group=year)) + 
  geom_line(color="gray80") + 
  geom_line(data=filter(prm, year==2020), color="pink", size=1.5) + 
  geom_line(data=filter(prm, year==2021), color="red", size=1.5) + 
  geom_line(data=filter(prm, year==2022), color="blue", size=1.5) + 
  geom_text(data=filter(prm, month==12), aes(x=12.2, y=csm, label=csm), family="G") +
  annotate("text", x=0.5, y=15, label="2022", family="G") +
  annotate("text", x=0.5, y=27, label="2021", family="G") +
  annotate("text", x=6.7, y=105, label="2020", family="G") +
  theme_minimal() +
  labs(x="Month", y="Cumulative Submission Count",
       title="Article Submissions per Month, 2012-2022") +
  scale_x_continuous(breaks=seq(1,12,1)) +
  theme(text=element_text(family="G", size=12),
        panel.grid.minor.x = element_blank())
